home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)td.d64 / func.drive'type < prev    next >
Text File  |  2007-02-28  |  852b  |  32 lines
  1. 0010 ╞╒╬├ DRIVE'TYPE ├╠╧╙┼─
  2. 0020   ╔═╨╧╥╘ DISK'READ,DISK'WRITE
  3. 0030   ╔╞ DISK'READ(49153)=46 ╘╚┼╬
  4. 0040     OLD'BYTE:=DISK'READ(20480)
  5. 0050     DISK'WRITE(20480,(OLD'BYTE+1) ═╧─ 256)
  6. 0060     NEW'BYTE:=DISK'READ(20480)
  7. 0070     DISK'WRITE(20480,OLD'BYTE)
  8. 0080     ╔╞ OLD'BYTE=NEW'BYTE ╘╚┼╬
  9. 0090       ╥┼╘╒╥╬ 1
  10. 0100     ┼╠╙┼ 
  11. 0110       ╥┼╘╒╥╬ 2
  12. 0120     ┼╬─╔╞ 
  13. 0130   ┼╠╙┼ 
  14. 0140     ╥┼╘╒╥╬ 1541
  15. 0150   ┼╬─╔╞ 
  16. 0160 ┼╬─╞╒╬├ DRIVE'TYPE
  17. 0170 //
  18. 0180 ╞╒╬├ DISK'READ(ADDR) ├╠╧╙┼─
  19. 0190   ─╔═ COM$ ╧╞ 20
  20. 0200   COM$:="M-R"+├╚╥$(ADDR ═╧─ 256)+├╚╥$(ADDR ─╔╓ 256)+├╚╥$(1)
  21. 0210   ╨┴╙╙ COM$
  22. 0220   NUM:=╧╥─(╙╘┴╘╒╙$)
  23. 0230   ╥┼╘╒╥╬ NUM
  24. 0240 ┼╬─╞╒╬├ DISK'READ
  25. 0250 //
  26. 0260 ╨╥╧├ DISK'WRITE(ADDR,NUM) ├╠╧╙┼─
  27. 0270   ─╔═ COM$ ╧╞ 20
  28. 0280   COM$:="M-W"+├╚╥$(ADDR ═╧─ 256)+├╚╥$(ADDR ─╔╓ 256)+├╚╥$(1)+├╚╥$(NUM)
  29. 0290   ╨┴╙╙ COM$
  30. 0300   NUM:=╧╥─(╙╘┴╘╒╙$)
  31. 0310 ┼╬─╨╥╧├ DISK'WRITE
  32.